home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0498.dms
/
q0498.adf
/
DOSCOPY
< prev
next >
Wrap
Text File
|
1992-06-07
|
324b
|
16 lines
*
* PCL DosCopy Fast Copier...
* (c)1992 BSI Labs
*
cpytitla:dc.b "Lockpick Fast Copier Request",0
cpyquesa:dc.b "Copy any more disks?",0
connect=drives()
cmp connect,-1,0,goto fini
nextdisk:returnvar=fcopy(connect,-1)
cmp returnvar,0,-1,goto fini
docopy=simplereq(cpytitla,cpyquesa)
cmp docopy,0,1,goto nextdisk
fini:end